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10.1 DISK DIRECTORY 
Hans Pennings 


10.1.1l Inleiding 
Onderstaand programma toont van een floppy disk: 


— Namen van de files met eventuele toevoeging (extension) 

— Data waarop de files zijn weggeschreven 

— Nummer van de sector(en) van de schijf waarop de files staan 
— De lengte van de files in bytes 

— Type files 

— Laad-, eíind- en startadres van machinetaalprogramma’”s 


Bovenstaande gegevens kunnen desgewenst worden afgedrukt. 


10.1.2. Programma 


1909 'Extended Files 

1910 SCREEN @:WIDTH 37:COLOR 15,1,1 
192% KEYOFF: CLS 

105% DEFINT O:DEFUSR=&H156 

1049 DEFENPCI)=PEEK CID +256XPEEKCI+1) 
105% DEFEFNDS CI, J)=RIGHTS$(SPACES (JJ) + 
DERBI, JJ 

196% DEFFNHS$CIJ=RIGHTS CC" ORHEEB CT: 
4D 

1970 OS=ENPC&HF351)-2°168 

1980 R=9:PR=D; MI=-1 


109% K1$="naam ext mm-dd-yy sec 
bytes * 
119% K2$= ” laadeN\ \ einde\ \ 


exec=\ \ 

1319 PRINTSPC CO)" pn”: 
PRINTSPC(9)"| Extended Files |": 
PRINTSPC CO)!" Ln 


112% PRINT” In het volgende overzicht 


ZST EPRINE 
113% PRINT” naam ‚max. 8 tekens” 
114% PRINT" ext ‘extensie van naa 


m.Smax. S)' 
1159 PRINT''mm-dd-yy :datum in MSX-not 


atie 

116% PRINT'sec ‘nr. van le secto 
r van file” 

117% PRINT” bytes lengte van file 
Cdecimaal)'’ 

1180 PRINT”t ‘type van file” 


en aaneen ae 
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10.1 DISK DIRECTORY 


10.1.2 Programma (‘le vervolg) 


119% PRINTSPCC(7)"A = ASCII, via SAVE"C 

HR$ C34)" naam’ CHRS$S C34)", A° 

1200 PRINTSPC(7)"B = BASIC, via SAVE"C 

HR$ (34) naam’'CHRS$ (34) 

1210 PRINTSPCC7)"M = machinetaal, via 

BSAVE'": 

1220 PRINTSPCC7)"? = onbekend” 

123% LOCATE @,16:IF MI THEN PRINT 

"Van machinetaal programma's worden 

het laad-,eind- en startadres (exec) 
weergegeven (HEXadecimaal), tenzij U 
ne op ASG drukt,” 

ELSE PRINT SPCSI48) 

124) PRIENIDPGLOI pam 
PRINTSPC{9)" | Printer aan JZ/N|'': 
PRINESPCG OR! hennen 1 

1250 IS=INKEYS: IEF IS=CHR$SC(27) THEN 

MI=MI XOR -1:GOTO 1230 

1260 IF I$=’n” OR IS="N" THEN 1280 

1470 IE TEAST AND ISF" THEN 1e50% 

ELSE GOSUB 1830 

128% CLS:PRINT K1$;:IF NOT MI THEN 

PRINT” * STRINGSC34,"=") ELSE 

PRINI'' TE’ STRINGSLST7,=tjs 

1290 IF PR THEN LPRINT K1$;: IF MI 

THEN LPRINT”t laad eind exec” 

ELSE LPRINT 

1390 IF PR THEN LPRINT 

STRINGS C34-21XMI, "=D 

1319 FOR S=5 TO 11 

132% IF NOT MI THEN D$=DSKIS CO, 5) 


13359 FOR O=08S TO OS+48% STEP 32 
1340 IFE MI THEN D$=DSKISC@, S) 

135% IF PEEKCO)=® THEN 1660 ELSE IF 
PEEKCO)=229 THEN 1650 

136% FOR I=0 TO O+7 

Ls70 PRINTCHRSEPEEKSIJ As NEXT: 
ENINE” | 

1580 IF PR THEN FOR I=0O TO O+7: 
LPRINT CHRS$CPEEKCIÒ);: NEXT: LPRINT" *; 
139% FOR 1=0+8 TO O+10 

149% PRINT CHRS$ (PEEK CID); : NEXT 

1410 IF PR THEN FOR I=0+8 TO O+10: 
LPRINT CHRS$S (PEEK CID); : NEXT 

1420 GOSUB 1710:PRINT DTS; 

1450 IF PR THEN LPRINT DTS; 


99 
* 
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DISK DIRECTORY 


10.1.2. Programma (2e vervolg) 


1440 
1450 


162% 


SEC=ENP CO+26) X2+8 
PRENT ENDSCSBECG, 3) Mg 
IF PR THEN LPRINT ENDS {SEC, 3) 


LT=ENPC£O+28): PRINT ENDS CLT, 5) 
IE PR THEN LPRINT ENDS (LT, 5) 


IF NOT MI THEN GOSUB 1800: GOTO 


DS=DSKIS CO, SEC) 

IF PEEKCOS)=255 THEN 1580 

IF PEEK(OS)=254 THEN 1600 

IF PEEKCOS)>47 AND PEEK COS) <58 


156% 

PRENT" PIER PR THEN LERINI 7" 
GOTO 1640 

FRINT"A":4IF PR THEN LPRINI A 
GOTO 1640 

PRINT"; IE PR-THEN-LPRINDP'E" 
GOTO 1640 


PRINT" M';: IFE PR THEN LPRINT"'M'; 
R=R+1: IFE RMODZ20=0 THEN GOSUB 


PRINTUSING K2$;ENHS CENPCOS+1)), 


FNHS$S CENP COS+3)) , ENHS$ CENP COS+5) ) 


163% IF PR THEN LPRINT 

”__ ENHSCENPCOS+1)) 

_ MENHS$ CENP COS+3) ) 

” __HENHS CENPCOS+5) 
164% R=R+1: IF RMOD20=0 THEN GOSUB 
1760 
165% NEXT O,S 
166% IEF NOT MI THEN PRINT STRINGS (34, 
’z=’) ELSE PRINT STRINGSC37,"="); 
167% IF PR THEN LPRINT STRINGS {(34-E1X 
MI E Dz) 
168% PRINT" Vrij:"DSKEF(O)'"kBytes" 
1690 IF PR THEN LPRINT"Vrij:"DSKEC@) 
“KBYTES 
1700 END 
1719 DAT=ENP (O+24): YR=INT CDAT/D12) 
1729 DAT=DAT-SIE2xYR 
173% YR=(YR+80) MOD100: MT=DAT\SE: 


DY=DATMOD32 


ORE ELE AAEONENAEAADDDRD E A ENE 
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DISK DIRECTORY 


10 


10.,1.2 Programma (3e vervolg) 


1740 


2) 


150 


176% PRINT:PRINT"L[ meer”; : U=USRC(0) 
IS=INKEY$: IF I$="" THEN 1770 
1780 CLS:PRINT K1$;:IFE NOT MI THEN 
PRINT" * STRING$SC34,"=") ELSE PRINT 
OTRINGSC37,"="); 


177 


,s lid 

1790 
1800 
181% 
1820 
1830 


1840 
185% 
1860 
187@ 


DT$=" PAENDS$ CMT, 2) +" -"+ENDS (DY, 


SENDER 
RETURN 


RETURN 

IF PR THEN LPRINTF 

PRINT: RETURN 

RKK KKK RK OKK IKK IK KK KOOR KK KK 

LPRINT CHRS$C27)'"' @"’ 
OENE RE ID Bid Bis 
Gibas Lotte” 

‘Printer initialisatie 

DKK KKK KKK IKK A ROK OK 

PR=-1: RETURN 


’ 


"See deb. Pennings 19069 
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13.1 ZELFBOUW VAN GAME PADDLES 
Peter van Overbeek 


13.l.l. Inleiding 


Elke MSX-computer is voorzien van één of twee negenpolige D-connectors. Op 
zon connector kan een joystick worden aangesloten. Deze vervangt dan de 
cursortoetsen. Maar ook andere soorten regelaars kunnen worden toegepast, 
zoals een paddle. 


Een paddle is een kastje met één of meer draaiknoppen. Afhankelijk van de 
stand van de draaiknop levert het bijbehorende BASIC-commando een waarde 
tussen O0 en 255 op. 


13.1.2 Werking 


Telkens als het BASIC-programma het commando PDL(X) tegenkomt, waarbij X een 
getal tussen 1 en 12 moet zijn, zet de computer een korte startimpuls op pen 8 
van de connector. Hiermee wordt een monostabiele (one shot) multivibrator, die 
tot het circuit van de game paddle behoort, gestart. Vervolgens “kijkt” de 
computer naar de lengte van de geretourneerde impuls en wel op de met X 
aangeduide ingang. 

Als de impuls korter is dan 12 microseconde, is het resultaat van PDL(X) 
gelijk aan O0. Als de impuls langer is dan 3 milliseconde is het resultaat 255. 
Voor tussenliggende waarden verandert PDL(X) lineair met de impulslengte. 


13.1.3 Zelfbouw 


Het te construeren kastje moet dus, na een startimpuls te hebben ontvangen, 
een impuls afgeven waarvan de lengte afhangt van de stand van een draaiknop. 
Omdat er voor deze functie een speciaal IC bestaat, is een en ander met weinig 
onderdelen zelf te maken. 

Het typenummer van het desbetreffende IC is NE555. De chíp kost ongeveer een 
gulden. Verder zijn nog nodig: een regelbare weerstand (potentiometer) met 
condensator die de impulslenget bepalen alsmede een transistor die de 
startimpuls omkeert (zie figuur 1). Het stroomverbruik van het gehele circuit 
is zo klein (enkele mA) dat de voeding uit de computer kan worden betrokken. 


Voor de bouw kan een stukje experimenteerprint worden gebruikt. Zet het IC op 
een voetje, dit overigens nadat alle soldeerwerk acher de rug ís. Voor de 
transistor komt vrijwel elk NPN-type in aanmerking. 

Controleer de schakeling zorgvuldig, voordat deze op de computer wordt aange 
sloten. Na inbouw ín een daartoe geschikt doosje kunnen we de werking van de 
schakeling controleren. 


13.1.4. Gebruik 
Test de werking met het volgende mini-programma: 


1 PRINT PDL(1):GOTO 1 
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13.1 ZELFBOUW VAN GAME PADDLES 
13.1.4. Gebruik (vervolg) 


Geef RUN en als alles goed is, zal de op het beeldscherm weergegeven waarde 
veranderen als er aan de knop gedraaid wordt. Met de paddle is het verplaatsen 
van sprites nu veel gemakkelijker. Probeer dit maar eens met het volgende 
programma: 


10 SCREEN 2 

20 DATA 48,24,204,254,255,12,24,48 

30 FOR X=0O TO 7:READ A:A$=AS+CHR$ (A) : NEXT 
40 SPRITES(1)=A$ 

50 P=PDL(1) 

60 PUT SPRITE 1,(P,100),15,1:GOTO 50 


RUN en draaí aan de knop. Snelheid regelen kan ook. Regel 50 wordt dan: 


50 P=P+PDL(1)/25 


Het snelheidsbereik kan nog worden veranderd met een ander getal dan 25. Het 
gaat zeer langzaam door regel 50 te wijzigen in: 


50 P=P+1:FOR X=0 TO (255-PDL(1)):NEXT X 


Het is wel duidelijk dat een paddle voor veel toepassingen heel wat prettiger 
is dan het gebruik van de cursortoetsen of een joystick. In bepaalde gevallen 
is het gewenst over twee of meer paddles te beschikken. Dat kan door het 
schema nog een keer na te bouwen, waarbij de impulsuitgang van de tweede 
schakeling op pen 2 van de connector wordt aangesloten. In het programma moet 
deze met PDL(3) worden aangeroepen. Een tweede transistor is niet nodig. De 
ingangen, waarop de startimpuls van de computer wordt aangeboden, de punten 2 
van beide IC’s, kunnen worden doorverbonden. Aantrekkelijker is het een NE556 
te gebruiken, dat is een dubbele NE555. Figuur 2 toont hiervoor de schakeling. 


Met een dubbele paddle kan een sprite in twee richtingen worden verplaatst. 
Dit is handig bij grafische toepassingen. Probeer hierbij eens het volgende 
programma: 


10 SCREEN 2 

20 P=PDL(1) :Q=PDL(3) 

30 PSET(P,Q):GOTO 20 

of vervang regel 30 door: 


30 LINE(P,P)-(Q,‚Q),15,B:GOTO 20 


Zo zijn er nog veel meer toepassingen te bedenken. 
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13.1 ZELFBOUW VAN GAMEPADDLES 


13.,1.,5 Pricipeschemals 


d- connector 


Figuur 1 


Figuur 2 
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16.37 BESTANDEN 
Dirk Kroon 


16.37.1 Inleiding 


Bestanden of “files” zijn brokken gegevens die op cassette of disk zijn wegge- 
schreven. Hoe dat gebeuren moet en ook hoe we ze weer ín het MSX-geheugen kun- 
nen teruglezen, ís het onderwerp van deze notitie. Files kunnen we onderschei- 
den in: 


— Programma-bestanden 
— Data-bestanden 


16.37.2 Programma-bestanden 


Programma-bestanden bevatten een programma. We beperken ons even tot BASIC- 
programma’s en onderscheiden dan: 


— BASIC programma-bestanden 
— ASCII programma-bestanden * 


In een BASIC programma-bestand staat het programma op de cassette of disk op 
dezelfde manier als het ín het geheugen van de computer staat. 


In een ASCII programma-bestand staat het programma op de cassette of disk op 
dezelfde manier als een listing op het scherm of op papier er uitziet. 


Wat ís het verschil? 
Als we een programma hebben zoals het volgende: 


10 REM voorbeeld 
20 PRINT “Dit is een tekst” 


dan staan de BASIC-instructies REM en PRINT niet als zodanig in het geheugen 
van de computer, maar zijn ze vervangen door één of twee getallen, die door de 
computer bij de uitvoering van het programma herkend worden als de BASIC- 
opdrachten REM en PRINT. Zo’n nummer, dat bij een BASIC-ínstructie hoort, noe- 
men we een “token”. 

Een BASIC-fíile zal dus altijd korter zijn dan een ASCII-file. We zien straks 


waarom we soms toch ASCII-files gebruiken. 


k ASCII is een afkorting die gebruikt wordt voor een standaard-codering van 
letters, cijfers en andere tekens. Wat tegenwoordig onder ASCII wordt ver- 
staan, wijkt zeer sterk af van de oorspronkelijke ASCII-tabellen. Met ASCII 
bedoelen we eigenlijk: letters, cijfers en tekens, die door een nummer wor- 
den weergegeven. 
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16.37 BESTANDEN 
16.,37.3 Naar en van cassette 


Een BASIC-programma schrijven we vanuit het geheugen als BASIC-fíle naar de 
cassette met: 


CSAVE “naam” 


waarbij naam de naam is, waaronder we het bestand op de cassette willen op- 
slaan (over alles wat u moet doen om de cassette gereed te maken voor het 
opnemen, dient u de gebruiksaanwijzing te raadplegen). 


Willen we het programma als ASCII-file opslaan, dan gaat dat met de íinstruc- 
tie: 


CSAVE “naam”,A 
Het inlezen van een BASIC-fíle van de cassette gaat met de instructie: 
CLOAD “naam” 


en van een ASCII-file met: 


CLOAD “naam” 
of 
MERGE “naam” 


De instructie MERGE is hier de reden dat we soms programma’s als een ASCII- 
file wegschrijven. 


Met MERGE geven we aan dat het in te lezen programma “gemengd” moet worden met 
het programma dat al in het geheugen staat. Hierbij moeten we wel bedenken, 

dat regelnummers die in beide programma’s gelijk zijn, door het in te lezen 
programma worden overschreven. De computer kijkt bij het inlezen van een ASCII- 
file met MERGE naar de cassette alsof hij naar het toetsenbord kijkt. Het is 
als het ware, of u heel snel het in te laden programma zit in te tikken. 


16.,37.4 Naar en van cassette of disk 


Behalve naar cassette kunnen programma-files ook geschreven worden naar andere 
opslagmedia, bij voorbeeld de disk. We kunnen een aantal disk drives aangeslo- 
ten hebben op de computer. Bij de MSX-2 zijn dit er zelfs zes, die aangeduid 
moeten worden met de letters A t/m F. 
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16.37 BESTANDEN 
16.37.4 Naar en van cassette of disk (vervolg) 


Om een programma-file naar disk drive A te schrijven (dat is de meest voorko- 
mende als u maar één drive hebt), luiden de instructies: 


SAVE “A:naam” voor een BASIC-f ile 
SAVE “A:naam”,A voor een ASCII-file 


en voor het teruglezen: 
LOAD “A:naam” voor een BASIC-f ile 
en 


LOAD “A:naam” 
MERGE “A:naam” … voor een ASCII-file 


Bij de bespreking van data-files zullen we zien dat we met deze instructies 
nog veel meer medía kunnen aanspreken. 


16.37.5 Data-bestanden 


Gegevens, zoals getallen en teksten, kunnen we naar cassette, disk en andere 
media schrijven op twee manieren, namelijk via een sequential file en random 
access file. 


16.37.6 Sequential files 


In een sequential file wordt het gehele bestand dat ín het geheugen staat, 
naar disk of cassette geschreven van voor naar achter. Bíj het teruglezen 
wordt ook het gehele bestand teruggelezen van voren af aan. We illustreren dit 
aan de hand van een voorbeeldprogramma: 


10 DIM X(100), A$(100) 


1000 OPEN “Ar:bestand" FOR OUTPUT AS #1 
1010 FOR I=l TO 100 

1020 PRINT #1 X(I), A$S(I) 

1030 NEXT 

1040 CLOSE 


Toelichting 
Regel 10 Het cijfer-array X en het stringarray A$ worden hier ín het 
| MSX-geheugen aangemaakt. We nemen aan dat tussen regel 10 en 


regel 1000 deze array’s met zinvolle informatie gevuld worden. 
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16.37 BESTANDEN 
16.37.6 Sequential files (vervolg toelichting)) 


Regel 1000 De computer maakt een stukje geheugen klaar om als “buffer” te 
dienen tussen de computer en het externe medium. De computer zal 
de informatie eerst naar de buffer sturen en het externe medium 
(cassette, disk) haalt de file er weer uit. Dit wordt zo gedaan 
om te voorkomen dat een verschil ín snelheid van wegschrijven en 
opnemen tot "opstoppingen" zou leiden. We geven hier bovendien 
aan dat de gegevensstroom van computer naar cassette of disk 
gaat (FOR OUTPUT) en het nummer (#1) van het buffergeheugen. We 
kunnen maximaal 15 buffers tegelijk open hebben. Waarom dat kan, 
daarover later. 

Regel 1010 Met een FOR/NEXT-lus halen we êén voor één de getallen X(I) en 
de teksten A$(I) uit het geheugen. 


Regel 1020 PRINT #1 stuurt de gegevens naar buffer nummer 1. Van daar uit 
gaan ze naar het aangegeven medium. 
Regel 1040 Als we klaar zijn, moet de file "gesloten" worden, d.w.z. de 


aangemaakte bufferruimte wordt verwijderd. 
Belangrijk! 


Als u, bij voorbeeld door het indrukken van CTRL-STOP, tijdens het ge-opend 
zijn van de file-buffer het programma hebt onderbroken, tik dan even in: 


CLOSE 


om de file te “sluiten”. Als u dit niet doet, blijft de computer “denken” dat 
gegevens op de laatst aangegeven manier weggeschreven moeten worden. Als u dan 
het programma SAVE-t, kunnen er de grootste rampen optreden. 


Het terugschrijven van een sequential file gaat als volgt: 


1000 OPEN “A:bestand" FOR INPUT AS #1 
1010 FOR I=1l TO 100 

1020 INPUT #1 X(I), A$S(I) 

1030 NEXT 

1040 CLOSE 


In plaats van OUTPUT staat er op regel 1000 nu INPUT en ín plaats van PRINT #1 


staat er nu INPUT #1. 
Natuurlijk moet u er wel voor zorgen dat de array’s X(I) en AS(I) van te voren 


aangemaakt zijn (ge-DIM-d). 
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16.37 BESTANDEN 
16.37.6 Sequential files (2e vervolg) 


Dit alles lijkt zo eenvoudig, maar er zitten nesten vol adders onder het gras, 
bij voorbeeld: 


— De getallen X(I) zijn, als we niets bijzonders gedaan hebben, van het type 
dubbele precisie, d.w.z. ze bestaan uit ongeveer 15 cijfers. In het geheugen 
van de computer worden deze 15 cijfers opgeslagen als 8 bytes (geheugen- 
plaatsen). Door de PRINT #1 -instructie worden de 15 cijfers echter cijfer 
voor cijfer weggestuurd (alsof ze cijfer voor cijfer afgedrukt zouden moeten 
worden). Dan worden er ook nog een paar spaties, een teken en een RETURN 
gestuurd, zodat er per saldo 19 bytes naar de cassette of de disk gaan. Het 
cijferbestand X(I), dat in het computergeheugen slechts 800 bytes in beslag 
nam, beslaat op deze manier op cassette of disk 1900 bytes. Speciaal bij 
grote bestanden kan de opslagcapaciteit op cassette of disk hierdoor te 
klein worden. 

— Ook bij het wegschrijven en terughalen van strings, ons stringarray A$(I), 
kunnen problemen optreden en wel als er in een string komma’s voorkomen. Een 
komma wordt namelijk gezien als een scheidingsteken tussen strings. Hebben 
we dus: 


A$(1)="aap" 
A$S(2)="noot,mies" 
AS(3)="wim,zus" 


en wordt dit op de boven beschreven manier, dus met PRINT #1, weggeschreven, 
dan krijgen we 


voor A$(1) — aap 
voor A$(2) — noot 


voor A$(3) — mies 
voor A$S(4) — wim 
enzovoort 


en dat is niet wat we ingelezen hadden. Hiervoor zijn twee remedies. 


Remedie 1: Lees strings niet terug met INPUT #1, maar met LINEINPUT #1. 
Deze laatste instructie kent geen komma als scheidingsteken maar 
alleen een RETURN. Denk erom dat u dan geen instructies mag 
gebruiken als: 


PRINT #1, A$(I), BS(I) 


Als u deze file terugleest met LINEINPUT, dan zullen A$(I) en 
BS(I) aan elkaar gekoppeld blijken te zijn. 
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16.37 BESTANDEN 
16.37.66 Sequential files (3e vervolg) 


Remedie 2: Zet vlak voor het wegschrijven de string tussen " “. Dit kan 
bij voorbeeld door de PRINT #1 -instructie te vervangen door: 


PRINT #1, X(I),CHR$ (34) 3 AS (I) ; CHR$ (34) 


CHR$(34) is de ASCII-codering van “. Een string die tussen * * 
staat, wordt echt als één geheel beschouwd en komma’s worden niet 
als “getalscheider" gezien. 


16.37/./7 Samenvatting over sequential files 
Alleen het gehele bestand wordt weggeschreven en teruggelezen. Voor getallen 


is de opslag op disk of cassette erg on-economisch. Met strings kunnen proble 
men optreden als we geen speciale maatregelen nemen. 


Aanvulling 


Tenslotte nog dit: Er is nog een vorm van OUTPUT mogelijk, nl. APPEND. We 
openen de file dan met: 


OPEN “A:sbestand” FOR APPEND AS #1 
De rest is gelijk. 


Het resultaat ís, dat een file die al onder de naam bestand op cassette of 
disk stond, nu wordt aangevuld met de nieuwe gegevens. De file wordt dus 
groter. 

Op deze wijze is het mogelijk op disk of cassette een veel groter bestand aan 
te maken, dan ooit ín het geheugen kan. Zo’n bestand als sequential file 
kunnen we alleen van voor naar achter doorzoeken. 


16.-37.,8 Naar andere media 


Gegevens hoeven niet uitsluitend naar cassette of disk te worden geschreven. 
Er zijn nog veel meer plaatsen, waarheen we een file kunnen wegschrijven. 


De algemene instructies voor wegschrijven naar en teruglezen van een rand- 
apparaat zijn: 


OPEN “RA:naam FOR OUTPUT AS # nummer 
OPEN “RA:naam FOR INPUT AS # nummer 
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16,37 BESTANDEN 
16.,3/.8 Naar andere media (vervolg) 


RA kan staan voor: 


CRT Schrijf de file naar het tekstscherm. In feite komt dit overeen 
met PRINT. 
GRP Schrijf de file naar het grafische scherm. Als een van de grafi- 


sche schermen aangezet is, werkt PRINT niet meer en zou dus niet 
op eenvoudige wijze tekst en gegevens naar het scherm gestuurd 
kunnen worden. Door dit via een sequential file te laten lopen, 
is dit wel mogelijk. 

LPT De printer. In feite komt dít overeen met LPRINT. 


Tekstscherm, grafisch scherm en printer zijn media, waar de computer slechts 
naar toe kan schrijven (alleen OUTPUT). Lezen van deze randapparaten is niet 
mogelijk. Dat kan wel van de volgende: 


CAS Gewoon de cassette. 

NEM De MSX-2 beschikt over een stuk geheugen, dat zich gedraagt 
alsof het een disk is. Hier kunnen tijdeljk (want als de MSX 
ge-RESET wordt, is de ínformatie verdwenen) files worden 


opgeslagen. 
COM Als een communicatie-interface is aangesloten, dan kan via het 
randapparaat COM met de buitenwereld worden gecommuniceerd. 
A-F Een van de mogelijke disk drives (voor MSX-2). 


We kunnen dus meer files tegelijk openen als we naar meer randapparaten 
tegelijk willen schrijven of van meer randapparaten tegelijk willen lezen. 


16.,3/,9 Random access files 


Bij een random access file is het mogelijk, zoals de naam al aangeeft, een van 
te voren gedefinieerd gegeven weg te schrijven of op te roepen. Het is dus 
niet zo, als bij de sequential files, dat de hele file van voren af aan moet 
worden ingeladen. We beginnen weer met eeen voorbeeld: 


100 INPUT "Welk nummer": I 

1000 OPEN “"A:naam" AS #1 LEN=28 
1010 FIELD #1,8 AS N1$, 20 AS N2$ 
1020 LSET NIS=MKDS(X(I)) 

1030 RSET N2$=A$S(I) 

1040 PUT #1,I 

1050 CLOSE #1 
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16.37 BESTANDEN 


16.3/.9 Random access files (le vervolg) 


Toelichting 


Een random access file bestaat uit gegevensblokken (records) van een vaste 
lengte. Deze blokken zijn genummerd. 


Regel 100 
Regel 1000 


Regel 1010 


Regel 1020 


Regel 1030 


Regel 1040 


Regel 1050 


Hier geven we aan naar welk bloknummer we willen wegschrijven. 
We openen een filebuffer net als bij de sequential files. We 
hoeven niet aan te geven of we output dan wel ínput willen doen. 
Door het weglaten van deze aanduiding weet de computer dat hij 
met een random access file te maken heeft. Tenslotte geven we de 
lengte van het gegevensblok (record) op. In dit geval is dat 

28 bytes. Geven we niets op, dan is deze lengte 256 bytes. Als 
onze records korter zijn dan de opgegeven recordlengte, laten we 
een stuk van het record ongebruikt; zijn onze records langer, 
dan passen ze niet. De maximale lengte die een record kan 
hebben, is 256 bytes. 

Met de instructie FIELD #1 geven we aan op welke manier we het 
record onderverdeeld willen hebben, dus 8 bytes voor een groot- 
heid, die we NI$ noemen en 20 bytes voor N28. Lees verder voor 
de verklaring. 

Hier staat veel ín. Van achteren naar voren: We zetten het getal 
X(I) om in een string NI$. Bij de sequential files hebben we 
gemeld dat een dubbel-precisiegetal 8 bytes in het geheugen 
inneemt. Wat we doen met de instructie MKD$S ís simpelweg het 
omzetten van deze 8 bytes in een "string" van 8 bytes. De 
instructie LSET betekent: Als de lengte van de string NI$ klei- 
ner ís dan het gereserveerde veld, zet het dan “rechts gelijk". 
Overigens, een integer getal wordt omgezet in een “string” van 2 
bytes met de instructie MKIS( ), een enkel-precisiegetal wordt 
een “string” van 4 bytes met de instructie MKSS( ). 

Hetzelfde gebeurt nu voor de string A$(I). Alleen, omdat A$S(I) 
al een string is, hoeft de omzetting naar string niet te gebeu- 
ren. LSET betekent hier “links oplijnen”. Bij het wegschrijven 
van getallen zullen we de lengte van het veld in het algemeen 
gelijk kiezen aan het aantal bytes dat het getal in het. geheugen 
inneemt. In dat geval is het niet wan belang of we RSET dan wel 
LSET nemen. Voor strings, waar we de lengte niet van weten, is 
het wel van belang. 

De instructie PUT #1,I schrijft de inhoud van de buffer, die we 
zojuist met veel moeite hebben aangemaakt, naar de disk als het 
I=e record. 

CLOSE. Zie hiervoor en voor wat te doen als het programma voor- 
tijdig wordt onderbroken, wat bij sequential files is geschre- 
ven. 
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16.37 BESTANDEN 

16.37.9 Random access files (2e vervolg) 
Teruglezen van een random access file 
We gaan weer uit van een voorbeeld: 


100 INPUT “Welk nummer”: I 

1000 OPEN “"A:naam" AS #1 LEN=28 
1010 FIELD #1, 8 AS NI$, 20 AS N2$ 
1020 GET #1,I 

1030 X=CVD(NIS) :A$=N2$ 

1050 CLOSE #1 


Toelichting 


Regels 100 )) 

1000 ) Deze regels zijn precies gelijk aan die bij het wegschrijven van 
1010 ) random access files. We kiezen een recordnummer, we openen de 
file met een bepaalde lengte en definiëren de velden met FIELD. 

Regel 1020 Allereerst halen we de inhoud van het gevraagde recordnummer van 
de disk met de instructie GET #1,I. Hierna staat dit record in 
de filebuffer. Nu moeten de getallen en strings nog naar het 
geheugen. 

Regel, 1030 Tegenover de instructie MKDS( ), die we gebruikt hebben bij het 
wegschrijven van het getal en die 8 bytes “getal” omzette naar 
een 8 bytes “string”, zet CVD een 8 bytes “string” om in een 
dubbel-precisiegetal. Dit wordt aan de variabele X toegevoegd. 
Natuurlijk zijn er ook instructies als CVI en CVS om integers en 
enkele-precisiegetallen te converteren. Het veld van de buffer, 
dat bij N2$ hoort, wordt aan A$ toegevoegd. 

Regel 1040 Tenslotte sluiten we het bestand weer. Het verdient overigens : 
aanbeveling het bestand pas te sluiten als er niets meer van de 
disk gelezen behoeft te worden. De INPUT-instructie van regel 
100 kan net zo goed gegeven worden als het bestand al geopend 
is. Het openen van bestanden kost namelijk nogal wat tijd. 


Voordelen van een random access file zijn de snelle toegankelijkheid van 
individuele records en de zuinige opslag van getallen (althans vergeleken met 
een sequential file). Een nadeel is de vaste lengte van de velden. Speciaal 
voor strings kan dit aanleiding geven tot problemen. De string ís of te kort 
en dan verspelen we ruimte op de disk, of de string is te lang en dan “past” 
hij niet. 


Sotopmerking over random access files: Gebruik de namen van de strings die u 
gebruikt hebt om de namen van de velden te definiëren nooit in een ander 
gedeelte van het programma (tenminste niet als de file nog open staat). Deze 
stringnamen “horen” als het ware bij de buffer en als u ze ook voor andere 
doeleinden gebruikt, roept u kommer en kwel op. 
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